home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 24 / CU Amiga Magazine's Super CD-ROM 24 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-07].iso / CUCD / Programming / BlitzList / BlitzListFiles / fast.bitmap < prev    next >
Encoding:
Text File  |  1998-05-04  |  686 b   |  23 lines
  1. memnow.l=AvailMem_(#MEMF_CHIP)
  2. fastmem.l=newsw*newsh*wd/8
  3. memblock.l=AllocMem_(fastmem,MEMF_FAST)     ;fast ram bitmap!
  4. CludgeBitMap 2,newsw,newsh,wd,memblock
  5. CopyBitMap 1,2                              ;previously loaded bitmap
  6. memused=memnow -(AvailMem_(#MEMF_CHIP))
  7. Request "ChipMemUsed",Str$(memused)+"|Picsize= "+Str$(fastmem),"OK"
  8.  
  9.  
  10. ;------------Open a window and put the picture on it-----------------------
  11.  
  12.     winwid=newsw
  13.     If winwid>maxw Then winwid=maxw
  14.     winhi=newsh
  15.     If winhi>maxh Then winhi=maxh
  16.     winx=maxw/2-winwid/2
  17.     winy=maxh/2-winhi/2
  18.  
  19.     Free Window 0
  20.     Window 0,winx,winy,winwid,winhi,$800|$1000,"",1,0
  21.     BitMaptoWindow 2,0,0,0,0,0,winwid,winhi
  22.  
  23.